home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / H-I / HyperZap.cpt / HyperZap 1.3 / card_3618.txt < prev    next >
Text File  |  1989-02-26  |  5KB  |  191 lines
  1. -- card: 3618 from stack: in.3
  2. -- bmap block id: 4529
  3. -- flags: 4000
  4. -- background id: 2750
  5. -- name: Second Card
  6. ----- HyperTalk script -----
  7. on closeCard
  8.   hide button "HyperZap"
  9. end closeCard
  10.  
  11.  
  12.  
  13. -- part 1 (field)
  14. -- low flags: 01
  15. -- high flags: 2007
  16. -- rect: left=106 top=230 right=319 bottom=393
  17. -- title width / last selected line: 0
  18. -- icon id / first selected line: 0 / 0
  19. -- text alignment: 0
  20. -- font id: 3
  21. -- text size: 12
  22. -- style flags: 256
  23. -- line height: 16
  24. -- part name: Help
  25.  
  26.  
  27. -- part 4 (field)
  28. -- low flags: 01
  29. -- high flags: 0000
  30. -- rect: left=187 top=45 right=139 bottom=325
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 0 / 0
  33. -- text alignment: 0
  34. -- font id: 3
  35. -- text size: 14
  36. -- style flags: 256
  37. -- line height: 18
  38. -- part name: Button Info
  39.  
  40.  
  41. -- part 6 (button)
  42. -- low flags: 00
  43. -- high flags: 2000
  44. -- rect: left=258 top=67 right=131 bottom=321
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 1006 / 1006
  47. -- text alignment: 1
  48. -- font id: 0
  49. -- text size: 12
  50. -- style flags: 0
  51. -- line height: 16
  52. -- part name: Quit
  53. ----- HyperTalk script -----
  54. on mouseUp
  55.   play harpsichord tempo 380 "b r c# r b r a# r bw"
  56.   wait 2 seconds
  57.   visual dissolve
  58.   doMenu "Quit HyperCard"
  59. end mouseUp
  60.  
  61.  
  62.  
  63. -- part 7 (button)
  64. -- low flags: 00
  65. -- high flags: 2000
  66. -- rect: left=196 top=67 right=132 bottom=259
  67. -- title width / last selected line: 0
  68. -- icon id / first selected line: 27056 / 27056
  69. -- text alignment: 1
  70. -- font id: 0
  71. -- text size: 12
  72. -- style flags: 0
  73. -- line height: 16
  74. -- part name: Start HyperZap
  75. ----- HyperTalk script -----
  76. on mouseUp
  77.   put filename("STAK") into fname
  78.   if fname is empty then exit mouseUp
  79.   deprotect fname
  80.   if the result is empty
  81.   play harpsichord "ee c"
  82.   then answer "HyperZap Has Removed The Password!" with "OK"
  83. else if the result is -44
  84. play boing
  85. flash 2
  86. then answer "I'm Sorry! Your Disk Is Locked!"
  87. else if the result is -49
  88. play boing
  89. flash 2
  90. then answer "I'm Sorry! This Stack Is In Use!"
  91. else answer "I'm Sorry! Unexpected File System Error: " & the result with "OK"
  92. end mouseUp
  93.  
  94.  
  95.  
  96. -- part 9 (button)
  97. -- low flags: 80
  98. -- high flags: 8004
  99. -- rect: left=222 top=181 right=210 bottom=295
  100. -- title width / last selected line: 0
  101. -- icon id / first selected line: 0 / 0
  102. -- text alignment: 1
  103. -- font id: 0
  104. -- text size: 12
  105. -- style flags: 0
  106. -- line height: 16
  107. -- part name: HyperZap
  108. ----- HyperTalk script -----
  109. on mouseUp
  110.   play harpsichord "ee c"
  111.   set lockScreen to true
  112.   visual dissolve
  113.   go to card 3
  114.   choose button tool
  115.   click at 225,200
  116.   doMenu "Copy Button"
  117.   choose browse tool
  118.   set lockScreen to false
  119.   visual effect dissolve slowly
  120.   go to home
  121.   doMenu "Paste Button"
  122.   choose browse tool
  123.   play harpsichord "ae be g5e g3e d4e"
  124.   go to card id 3618 in stack "HyperZap v1.3"
  125. end mouseUp
  126.  
  127.  
  128.  
  129. -- part 10 (button)
  130. -- low flags: 00
  131. -- high flags: 0000
  132. -- rect: left=21 top=31 right=219 bottom=191
  133. -- title width / last selected line: 0
  134. -- icon id / first selected line: 0 / 0
  135. -- text alignment: 1
  136. -- font id: 0
  137. -- text size: 12
  138. -- style flags: 0
  139. -- line height: 16
  140. -- part name: Copy Left
  141. ----- HyperTalk script -----
  142. on mouseUp
  143.   show button "HyperZap"
  144. end mouseUp
  145.  
  146.  
  147.  
  148. -- part 11 (button)
  149. -- low flags: 00
  150. -- high flags: 0000
  151. -- rect: left=327 top=31 right=219 bottom=502
  152. -- title width / last selected line: 0
  153. -- icon id / first selected line: 0 / 0
  154. -- text alignment: 1
  155. -- font id: 0
  156. -- text size: 12
  157. -- style flags: 0
  158. -- line height: 16
  159. -- part name: Copy Right
  160. ----- HyperTalk script -----
  161. on mouseUp
  162.   hide button "HyperZap"
  163. end mouseUp
  164.  
  165.  
  166.  
  167. -- part contents for card part 1
  168. ----- text -----
  169. Welcome to HyperZap, a HyperCard‚Ñ¢ copy protection stripper. This stack is brought to you by       macPUBLIC in Miami, Florida.
  170.     ‚Ä¢‚Ä¢‚Ä¢scroll down to continue >>>>>
  171.  
  172. When you "click" the Start button above, you  will be asked for the name of the stack you wish to strip the copy protection from. Once clicked, HyperZap will automatically remove the password from the selected stack and reset the access level of the stack to Scripting. 
  173.  
  174. You may continue with HyperZap and strip the copy protection from more of your stacks or "click" the Quit button to return to the Finder.
  175.  
  176. "Click" on the Left Palm Tree to reveal a button that you can "click" and HyperZap will automatically copy a HyperZap button to your Home Card and bring you back here. 
  177. (The Right Palm Tree will hide the HyperZap button.)
  178.  
  179. This stack uses an XCMD that was developed by Ned Horvath and Allan Foster.  Please send any comments to Doug Levy, CompuServe 70701, 1767.                  
  180.                    Doug Levy
  181.                macPUBLIC,Inc
  182.         11329 SW 74th Terrace
  183.               Miami, FL 33173
  184.  
  185. -- part contents for card part 4
  186. ----- text -----
  187.  
  188.    Start     Quit
  189.  
  190.  
  191.       HyperZap